﻿<AttributeUsage(AttributeTargets.Class, AllowMultiple:=False)> _
Public Class AddinEnvironmentCategoryAttribute
    Inherits Attribute

    Private _guid As Guid

    Public Sub New(guid As String)
        _guid = New Guid(guid)
    End Sub

    Public Sub New(guid As Guid)
        _guid = guid
    End Sub

    Public ReadOnly Property Guid As Guid
        Get
            Return _guid
        End Get
    End Property
End Class

<AttributeUsage(AttributeTargets.Class, AllowMultiple:=True)> _
Public Class AddinSummaryAttribute
    Inherits Attribute

    Private _summary As String

    Public Sub New()
        _summary = String.Empty
    End Sub

    Public Sub New(summary As String)
        _summary = summary
    End Sub

    Public ReadOnly Property Summary As String
        Get
            Return _summary
        End Get
    End Property
End Class

<AttributeUsage(AttributeTargets.Class, AllowMultiple:=False)> _
Public Class AddinTitleAttribute
    Inherits Attribute

    Private _title As String

    Public Sub New()
        _title = String.Empty
    End Sub

    Public Sub New(title As String)
        _title = Title
    End Sub

    Public ReadOnly Property Title As String
        Get
            Return _title
        End Get
    End Property
End Class